home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / D / Dopplemaker 1.2.cpt / Dopplemaker 1.2 / Dopple Stack / card_3180.txt < prev    next >
Text File  |  1988-03-19  |  9KB  |  401 lines
  1. -- card: 3180 from stack: in
  2. -- bmap block id: 4458
  3. -- flags: 0000
  4. -- background id: 2694
  5. -- name: Menu
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   CloseFields
  9.   CloseButtons
  10.   set hilite of card button "FileMenu" to false
  11.   Show card button "FileMenu"
  12.   Set hilite of card button "ReportMenu" to false
  13.   Show card button "ReportMenu"
  14. end OpenCard
  15.  
  16. on ShowFile
  17.   CloseReport
  18.   set hilite of card button "FileMenu" to true
  19.   set visible of card field "FileMenu" to true
  20.   put 1 into it
  21.   repeat until it > 4
  22.     set visible of card button it to true
  23.     put it + 1 into it
  24.   end repeat
  25. end ShowFile
  26.  
  27. on CloseFile
  28.   set hilite of card button "FileMenu" to false
  29.   CloseFields
  30.   put 1 into it
  31.   repeat until it > 4
  32.     set visible of card button it to false
  33.     put it + 1 into it
  34.   end repeat
  35. end CloseFile
  36.  
  37. on ShowReport
  38.   set hilite of card button "ReportMenu" to true
  39.   CloseFile
  40.   set visible of card field "ReportMenu" to true
  41.   set visible of card button 6 to true
  42. end ShowReport
  43.  
  44. on CloseReport
  45.   set hilite of card button "ReportMenu" to false
  46.   CloseFields
  47.   set visible of card button 6 to false
  48. end CloseReport
  49.  
  50. on CloseFileFields
  51.   put 3 into it
  52.   repeat until it > 6
  53.     hide card field it
  54.     put it + 1 into it
  55.   end repeat
  56. end CloseFileFields
  57.  
  58.  
  59.  
  60. -- part 1 (field)
  61. -- low flags: 81
  62. -- high flags: 2002
  63. -- rect: left=142 top=63 right=232 bottom=290
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: FileMenu
  72.  
  73.  
  74. -- part 2 (field)
  75. -- low flags: 81
  76. -- high flags: 2002
  77. -- rect: left=217 top=63 right=103 bottom=406
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: ReportMenu
  86.  
  87.  
  88. -- part 3 (button)
  89. -- low flags: 80
  90. -- high flags: 0000
  91. -- rect: left=278 top=75 right=100 bottom=305
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 19678 / 19678
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Open
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   if not visible of card field "Open Info" then
  103.     CloseFileFields
  104.     set visible of card field "Open Info" to true
  105.   end if
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 4 (button)
  111. -- low flags: 80
  112. -- high flags: 0000
  113. -- rect: left=266 top=123 right=148 bottom=293
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 19678 / 19678
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: UnDopple
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   if not visible of card field "UnDopple Info" then
  125.     CloseFileFields
  126.     set visible of card field "UnDopple Info" to true
  127.   end if
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 5 (button)
  133. -- low flags: 80
  134. -- high flags: 0000
  135. -- rect: left=231 top=92 right=117 bottom=258
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 19678 / 19678
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Save
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   if not visible of card field "Save Info" then
  147.     CloseFileFields
  148.     set visible of card field "Save Info" to true
  149.   end if
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 6 (button)
  155. -- low flags: 80
  156. -- high flags: 0000
  157. -- rect: left=237 top=165 right=190 bottom=264
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 19678 / 19678
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Print
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   if not visible of card field "Print Info" then
  169.     CloseFileFields
  170.     set visible of card field "Print Info" to true
  171.   end if
  172. end mouseUp
  173.  
  174.  
  175.  
  176. -- part 7 (button)
  177. -- low flags: 00
  178. -- high flags: 0000
  179. -- rect: left=143 top=45 right=63 bottom=175
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: FileMenu
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   if not visible of card button 1 then
  191.     ShowFile
  192.   else
  193.     CloseFile
  194.   end if
  195. end mouseUp
  196.  
  197.  
  198.  
  199. -- part 8 (button)
  200. -- low flags: 80
  201. -- high flags: 0000
  202. -- rect: left=390 top=69 right=94 bottom=417
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 19678 / 19678
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: Usage
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   if not visible of card field "Usage Info" then
  214.     set visible of card field "Usage Info" to true
  215.   end if
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part 11 (button)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=218 top=45 right=63 bottom=271
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: ReportMenu
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   if not visible of card button 6 then
  235.     ShowReport
  236.   else
  237.     CloseReport
  238.   end if
  239. end mouseUp
  240.  
  241.  
  242.  
  243. -- part 12 (field)
  244. -- low flags: 81
  245. -- high flags: 0004
  246. -- rect: left=14 top=100 right=185 bottom=214
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 0 / 0
  249. -- text alignment: 0
  250. -- font id: 2
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: Open Info
  255. ----- HyperTalk script -----
  256. on mouseup
  257.   hide card field "Open Info"
  258. end mouseup
  259.  
  260.  
  261. -- part 13 (field)
  262. -- low flags: 81
  263. -- high flags: 0004
  264. -- rect: left=55 top=119 right=189 bottom=254
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 0
  268. -- font id: 2
  269. -- text size: 12
  270. -- style flags: 0
  271. -- line height: 16
  272. -- part name: Save Info
  273. ----- HyperTalk script -----
  274. on mouseup
  275.   hide card field "Save Info"
  276. end mouseup
  277.  
  278.  
  279. -- part 14 (field)
  280. -- low flags: 81
  281. -- high flags: 0004
  282. -- rect: left=264 top=148 right=316 bottom=504
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 0 / 0
  285. -- text alignment: 0
  286. -- font id: 2
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: UnDopple Info
  291. ----- HyperTalk script -----
  292. on mouseup
  293.   hide card field "UnDopple Info"
  294. end mouseup
  295.  
  296.  
  297. -- part 15 (field)
  298. -- low flags: 81
  299. -- high flags: 0004
  300. -- rect: left=270 top=150 right=220 bottom=467
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 0
  304. -- font id: 2
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: Print Info
  309. ----- HyperTalk script -----
  310. on mouseup
  311.   hide card field "Print Info"
  312. end mouseup
  313.  
  314.  
  315. -- part 16 (field)
  316. -- low flags: 81
  317. -- high flags: 0004
  318. -- rect: left=93 top=101 right=291 bottom=469
  319. -- title width / last selected line: 0
  320. -- icon id / first selected line: 0 / 0
  321. -- text alignment: 0
  322. -- font id: 2
  323. -- text size: 12
  324. -- style flags: 0
  325. -- line height: 16
  326. -- part name: Usage Info
  327. ----- HyperTalk script -----
  328. on mouseup
  329.   hide card field "Usage Info"
  330. end mouseup
  331.  
  332.  
  333. -- part 17 (field)
  334. -- low flags: 81
  335. -- high flags: 0004
  336. -- rect: left=49 top=268 right=338 bottom=506
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 0
  340. -- font id: 2
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: Authors Note
  345. ----- HyperTalk script -----
  346. on mouseup
  347.   hide card field "Authors Note"
  348. end mouseup
  349.  
  350.  
  351. -- part contents for card part 1
  352. ----- text -----
  353. New DoppleGanger
  354. Open DoppleGanger
  355. Save Report
  356. Make DoppleGanger
  357. UnDopple Files‚Ķ
  358. -
  359. Page Setup‚Ķ
  360. Print
  361. -
  362. Quit
  363.  
  364.  
  365.  
  366.  
  367. -- part contents for card part 2
  368. ----- text -----
  369. Display Application Usage
  370. Reset Application Usage
  371.  
  372. -- part contents for card part 12
  373. ----- text -----
  374. The ‚ÄúOpen‚Äù command allows you to open existing DoppleGangers and change the path, name, or options of the original application.
  375.  
  376. -- part contents for card part 13
  377. ----- text -----
  378. The commands ‚ÄúSave‚Äù refer to the report windows.  They will be dimmed until a report window is activated.
  379.  
  380. -- part contents for card part 14
  381. ----- text -----
  382. The ‚ÄúUnDopple Files‚Ķ‚Äù command will allow you to remove DoppleGangers and restore its original application to being visible and single-user.  Note:  only DoppleGangers and folders will be shown in the standard open dialog box.  Thus everything that you would see is a DoppleGanger.  There is no danger of deleting an original document
  383.  
  384.  
  385. -- part contents for card part 15
  386. ----- text -----
  387. As with the save commands, these commands deal with the Application Usage Report windows.
  388.  
  389. -- part contents for card part 16
  390. ----- text -----
  391. If you wish to maintain a report of application usage, the DoppleGangers will keep a count of how many times each one has been opened.  Thus if you had a DoppleGanger for MacWrite‚Ñ¢, it would keep track of how many times it was opened.  
  392.  
  393. To enable this option, you must have a folder called
  394. ‚ÄúResources‚Äù in the root volume.  The users must also have write access to this folder.  If such a folder does not exist, it will not affect the opperation of the DoppleGangers; they simply will skip their application report function.
  395.  
  396.  
  397.  
  398.  
  399. -- part contents for card part 17
  400. ----- text -----
  401. Those commands that do not function in your version will be implemented in later versions.  Also, I look forward to hearing feedback on any aspect of the DoppleMaker.  If there are features that you would like to see in later versions, please contact me.